home *** CD-ROM | disk | FTP | other *** search
/ Guide to Astrology / Guide to Astrology.iso / astro_05 / first.bat < prev    next >
DOS Batch File  |  1995-12-30  |  5KB  |  184 lines
  1. ECHO OFF
  2. BATCHMAN CLS
  3. BATCHMAN CECHO 0Eh, 
  4. BATCHMAN CECHO 0Ch, To print out ALL documentation files:  
  5. BATCHMAN CECHO 0Eh, 1) Turn your printer on.
  6. BATCHMAN CECHO 0Eh, 2) Type "A:" or "B:", followed by ENTER.
  7. BATCHMAN CECHO 0Eh, 3) Put RELATE disk in that drive.
  8. BATCHMAN CECHO 0Eh, 4) Type "DOCS", followed by ENTER.
  9.  
  10. BATCHMAN CECHO 0Eh, 
  11. BATCHMAN CECHO 0Bh, Please read the following documents:
  12. BATCHMAN CECHO 0Eh, OPTIONS.DOC (program options that are available in the commercial version)
  13. BATCHMAN CECHO 0Eh, ORDER.DOC   (how to order the full-featured commercial version)
  14.  
  15. BATCHMAN CECHO 0Eh, 
  16. BATCHMAN CECHO C 0Ah, You have this much free memory (RAM) =  
  17. BATCHMAN MAINMEM R
  18. BATCHMAN CECHO 0Ah, You need about 216,800 free bytes of memory to run RELATE.EXE.
  19.  
  20. BATCHMAN CECHO 0Eh, 
  21. PAUSE
  22. BATCHMAN CECHO 0Eh, 
  23.  
  24. BATCHMAN CECHO 0Eh, Do you have a hard disk (press Y or N)?
  25. BATCHMAN GETKEY 'YN'
  26. IF ERRORLEVEL == 255 GOTO FINI
  27. IF ERRORLEVEL == 2 GOTO FINI
  28. :Q1
  29. BATCHMAN CECHO 0Eh, 
  30. BATCHMAN CECHO 0Eh, Do you want me to transfer all RELATE files to your hard disk (press Y or N)?
  31.  
  32. BATCHMAN GETKEY 'YN'
  33. IF ERRORLEVEL == 255 GOTO FINI
  34. IF ERRORLEVEL == 2 GOTO FINI
  35. :Q2
  36. BATCHMAN CECHO 0Eh, 
  37. BATCHMAN CECHO 0Eh, Please enter 'C' or 'D' for the hard drive you want me to transfer all files
  38. BATCHMAN CECHO 0Eh, to (I will make a directory for you on that drive called RELATE).  
  39. BATCHMAN CECHO 0Ch, If this is not O.K., then press 'X'.
  40. BATCHMAN GETKEY 'CDX'
  41. IF ERRORLEVEL == 255 GOTO FINI
  42. IF ERRORLEVEL == 3 GOTO FINI
  43. IF ERRORLEVEL == 2 GOTO DDRIVE
  44. :CDRIVE
  45. BATCHMAN DRIVEEXIST C:
  46. IF ERRORLEVEL == 1 GOTO DCOK
  47. BATCHMAN CECHO 0Eh, 
  48. BATCHMAN CECHO 0Eh, You have no drive C.
  49. GOTO Q2
  50.  
  51. :DCOK
  52. BATCHMAN CECHO 0Eh, 
  53. BATCHMAN CECHO 0Eh, Tell me what drive your RELATE disk is in - Type 'A' or 'B'.
  54. BATCHMAN GETKEY 'AB'
  55. IF ERRORLEVEL == 255 GOTO FINI
  56. IF ERRORLEVEL == 2 GOTO CFROMB
  57. :CFROMA
  58. BATCHMAN CECHO 0Eh, 
  59. BATCHMAN CECHO 0Eh, Wait a moment while I check your free disk space.
  60. BATCHMAN CANCOPY A:\*.* C:
  61. IF ERRORLEVEL == 255 GOTO FINI
  62. IF ERRORLEVEL == 1 GOTO NROOMC
  63. GOTO OKCA
  64.  
  65. :NROOMC
  66. BATCHMAN CECHO 0Eh, 
  67. BATCHMAN CECHO 0Ch, You do not have enough room on drive C
  68. GOTO Q1
  69.  
  70. :CFROMB
  71. BATCHMAN CECHO 0Eh, 
  72. BATCHMAN CECHO 0Eh, Wait a moment while I check your free disk space.
  73. BATCHMAN CANCOPY B:\*.* C:
  74. IF ERRORLEVEL == 255 GOTO FINI
  75. IF ERRORLEVEL == 1 GOTO NROOMC
  76. GOTO OKCB
  77.  
  78. :OKCA
  79. BATCHMAN CECHO 0Eh, 
  80. BATCHMAN CECHO 0Eh, I will now make the directory and transfer the files.
  81. BATCHMAN CECHO 0Eh, 
  82. BATCHMAN CECHO 0Eh, Here are the files I am transfering from drive A to drive C.
  83. BATCHMAN CECHO 0Eh, 
  84. C:
  85. MD \RELATE
  86. COPY A:\*.* C:\RELATE
  87. copy c:\RELATE\RELC.bat c:\
  88. A:
  89. GOTO LBL1
  90.  
  91. :OKCB
  92. BATCHMAN CECHO 0Eh, 
  93. BATCHMAN CECHO 0Eh, I will now make the directory and transfer the files.
  94. BATCHMAN CECHO 0Eh, 
  95. BATCHMAN CECHO 0Eh, Here are the files I am transfering from drive B to drive C.
  96. BATCHMAN CECHO 0Eh, 
  97. C:
  98. MD \RELATE
  99. COPY B:\*.* C:\RELATE
  100. copy c:\RELATE\RELC.bat c:\
  101. B:
  102. GOTO LBL1
  103.  
  104. :DDRIVE
  105. BATCHMAN DRIVEEXIST D:
  106. IF ERRORLEVEL == 1 GOTO DDOK
  107. BATCHMAN CECHO 0Eh, 
  108. BATCHMAN CECHO 0Eh, You have no drive D.
  109. GOTO Q2
  110.  
  111. :DDOK
  112. BATCHMAN CECHO 0Eh, 
  113. BATCHMAN CECHO 0Eh, Tell me what drive your RELATE disk is in - Type 'A' or 'B'.
  114. BATCHMAN GETKEY 'AB'
  115. IF ERRORLEVEL == 255 GOTO FINI
  116. IF ERRORLEVEL == 2 GOTO DFROMB
  117. :DFROMA
  118. BATCHMAN CECHO 0Eh, 
  119. BATCHMAN CECHO 0Eh, Wait a moment while I check your free disk space.
  120. BATCHMAN CANCOPY A:\*.* D:
  121. IF ERRORLEVEL == 255 GOTO FINI
  122. IF ERRORLEVEL == 1 GOTO NROOMD
  123. GOTO OKDA
  124.  
  125. :NROOMD
  126. BATCHMAN CECHO 0Eh, 
  127. BATCHMAN CECHO 0Ch, You do not have enough room on drive D
  128. GOTO Q1
  129.  
  130. :DFROMB
  131. BATCHMAN CECHO 0Eh, 
  132. BATCHMAN CECHO 0Eh, Wait a moment while I check your free disk space.
  133. BATCHMAN CANCOPY B:\*.* D:
  134. IF ERRORLEVEL == 255 GOTO FINI
  135. IF ERRORLEVEL == 1 GOTO NROOMD
  136. GOTO OKDB
  137.  
  138. :OKDA
  139. BATCHMAN CECHO 0Eh, 
  140. BATCHMAN CECHO 0Eh, I will now make the directory and transfer the files.
  141. BATCHMAN CECHO 0Eh, 
  142. BATCHMAN CECHO 0Eh, Here are the files I am transfering from drive A to drive D.
  143. BATCHMAN CECHO 0Eh, 
  144. D:
  145. MD \RELATE
  146. COPY A:\*.* D:\RELATE
  147. copy d:\RELATE\RELC.bat d:\
  148. A:
  149. GOTO LBL1
  150.  
  151. :OKDB
  152. BATCHMAN CECHO 0Eh, 
  153. BATCHMAN CECHO 0Eh, I will now make the directory and transfer the files.
  154. BATCHMAN CECHO 0Eh, 
  155. BATCHMAN CECHO 0Eh, Here are the files I am transfering from drive B to drive D.
  156. BATCHMAN CECHO 0Eh, 
  157. D:
  158. MD \RELATE
  159. COPY B:\*.* D:\RELATE
  160. copy d:\RELATE\RELC.bat d:\
  161. B:
  162. GOTO LBL1
  163.  
  164. :LBL1
  165.  
  166. :FINI
  167. BATCHMAN CECHO 0Eh, 
  168. BATCHMAN CECHO 0Ch, TO RUN RELATE:
  169. BATCHMAN CECHO 0Fh, 1) Read down the first column to find the drive you will start RELATE from.
  170. BATCHMAN CECHO 0Fh, 2) Read across for the command to use to start RELATE.
  171. BATCHMAN CECHO 0Fh, 4) Type the command followed by ENTER to start RELATE.
  172. BATCHMAN CECHO 0Eh, 
  173. BATCHMAN CECHO 0Eh,    Disk drive A              RELA   
  174. BATCHMAN CECHO 0Eh,    Disk drive B              RELB
  175. BATCHMAN CECHO 0Eh,    Disk drive C              RELC
  176. BATCHMAN CECHO 0Eh, 
  177. BATCHMAN CECHO 0Eh, 
  178. BATCHMAN CECHO 0Eh, 
  179. BATCHMAN CECHO 0Ah, You're on your own now - Please read ALL the documentation.
  180. BATCHMAN CECHO 0Eh, 
  181. BATCHMAN CECHO 0Eh, 
  182. BATCHMAN CECHO 0Eh, 
  183. EXIT
  184.